home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / maestro / source / quotemkr / quotemkr.g < prev    next >
Encoding:
Text File  |  1993-06-15  |  52.8 KB  |  1,807 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :menu
  5.     :name                   fileMenu
  6.     :help                   ""
  7.     :columns                1
  8.     :menu-type              :command
  9.     :menu-handler           nil
  10.     :menu-title             "Document"
  11.     :menu-item-labels       ("Open Edit List..." "Save Edit List..." "Save Edit List As..." "New document to annotate..." "Info about QuoteMaker..." "Quit" )
  12.     :menu-item-label-types  (:string :string :string :string :string :string )
  13.     :menu-item-states       (:active :active :active :active :active :active )
  14.     :menu-item-defaults     (nil nil nil nil nil nil )
  15.     :initial-selections     (nil nil nil nil nil nil )
  16.     :menu-item-handlers     (ShowOpenEditListPopup SaveEditListHandler SaveEditListAsHandler NewDocumentToAnnotateHandler Info Quit )
  17.     :menu-item-menus        (nil nil nil nil nil nil )
  18.     :menu-item-colors       ("" "" "" "" "" "" )
  19.     :pinnable               t
  20.     :user-data              ()
  21.     :actions                (
  22.         (
  23.         :from                   (fileMenu "Open Edit List...")
  24.         :when                   (Notify )
  25.         :to                     (fileMenu "Open Edit List...")
  26.         :function_type          CallFunction
  27.         :arg_type               ()
  28.         :action                 (ShowOpenEditListPopup)
  29.         )
  30.         (
  31.         :from                   (fileMenu "Save Edit List...")
  32.         :when                   (Notify )
  33.         :to                     (fileMenu "Save Edit List...")
  34.         :function_type          CallFunction
  35.         :arg_type               ()
  36.         :action                 (SaveEditListHandler)
  37.         )
  38.         (
  39.         :from                   (fileMenu "Save Edit List As...")
  40.         :when                   (Notify )
  41.         :to                     (fileMenu "Save Edit List As...")
  42.         :function_type          CallFunction
  43.         :arg_type               ()
  44.         :action                 (SaveEditListAsHandler)
  45.         )
  46.         (
  47.         :from                   (fileMenu "New document to annotate...")
  48.         :when                   (Notify )
  49.         :to                     (fileMenu "New document to annotate...")
  50.         :function_type          CallFunction
  51.         :arg_type               ()
  52.         :action                 (NewDocumentToAnnotateHandler)
  53.         )
  54.         (
  55.         :from                   (fileMenu "Info about QuoteMaker...")
  56.         :when                   (Notify )
  57.         :to                     (fileMenu "Info about QuoteMaker...")
  58.         :function_type          CallFunction
  59.         :arg_type               ()
  60.         :action                 (Info)
  61.         )
  62.         (
  63.         :from                   (fileMenu "Quit")
  64.         :when                   (Notify )
  65.         :to                     (fileMenu "Quit")
  66.         :function_type          CallFunction
  67.         :arg_type               ()
  68.         :action                 (Quit)
  69.         )
  70.     )
  71. )
  72. (
  73.     :type                   :menu
  74.     :name                   OptionsMenu
  75.     :help                   ""
  76.     :columns                1
  77.     :menu-type              :command
  78.     :menu-handler           nil
  79.     :menu-title             ""
  80.     :menu-item-labels       ("Show Text Window" "Quote Window Options ..." )
  81.     :menu-item-label-types  (:string :string )
  82.     :menu-item-states       (:active :active )
  83.     :menu-item-defaults     (nil nil )
  84.     :initial-selections     (nil nil )
  85.     :menu-item-handlers     (ShowTextWindowHandler ShowQuoteWindowSpecificationsPanelHandler )
  86.     :menu-item-menus        (nil nil )
  87.     :menu-item-colors       ("" "" )
  88.     :pinnable               t
  89.     :user-data              ()
  90.     :actions                (
  91.         (
  92.         :from                   (OptionsMenu "Show Text Window")
  93.         :when                   (Notify )
  94.         :to                     (OptionsMenu "Show Text Window")
  95.         :function_type          CallFunction
  96.         :arg_type               ()
  97.         :action                 (ShowTextWindowHandler)
  98.         )
  99.         (
  100.         :from                   (OptionsMenu "Quote Window Options ...")
  101.         :when                   (Notify )
  102.         :to                     (OptionsMenu "Quote Window Options ...")
  103.         :function_type          CallFunction
  104.         :arg_type               ()
  105.         :action                 (ShowQuoteWindowSpecificationsPanelHandler)
  106.         )
  107.     )
  108. )
  109. (
  110.     :type                   :base-window
  111.     :name                   baseWindow
  112.     :owner                  nil
  113.     :width                  501
  114.     :height                 665
  115.     :background-color       "light gray"
  116.     :foreground-color       ""
  117.     :label                  "QuoteMaker"
  118.     :label-type             :string
  119.     :initial-state          :open
  120.     :show-footer            t
  121.     :resizable              t
  122.     :icon-file              "./icons/QuoteMaker.icon"
  123.     :icon-label             ""
  124.     :icon-mask-file         ""
  125.     :event-handler          nil
  126.     :user-data              ()
  127.     :actions                ()
  128. )
  129. (
  130.     :type                   :control-area
  131.     :name                   editListControlPanel
  132.     :owner                  baseWindow
  133.     :help                   ""
  134.     :x                      14
  135.     :y                      16
  136.     :width                  471
  137.     :height                 298
  138.     :background-color       "Light Gray"
  139.     :foreground-color       ""
  140.     :initial-state          :visible
  141.     :show-border            t
  142.     :menu                   nil
  143.     :event-handler          nil
  144.     :user-data              ()
  145.     :actions                ()
  146. )
  147. (
  148.     :type                   :button
  149.     :name                   fileMenuButton
  150.     :owner                  editListControlPanel
  151.     :help                   ""
  152.     :x                      29
  153.     :y                      14
  154.     :width                  94
  155.     :height                 19
  156.     :constant-width         nil
  157.     :button-type            :normal
  158.     :foreground-color       ""
  159.     :label                  "Document"
  160.     :label-type             :string
  161.     :initial-state          :active
  162.     :menu                   fileMenu
  163.     :notify-handler         nil
  164.     :event-handler          nil
  165.     :user-data              ()
  166.     :actions                ()
  167. )
  168. (
  169.     :type                   :button
  170.     :name                   OptionsButton
  171.     :owner                  editListControlPanel
  172.     :help                   ""
  173.     :x                      150
  174.     :y                      14
  175.     :width                  80
  176.     :height                 19
  177.     :constant-width         nil
  178.     :button-type            :normal
  179.     :foreground-color       ""
  180.     :label                  "Options"
  181.     :label-type             :string
  182.     :initial-state          :active
  183.     :menu                   OptionsMenu
  184.     :notify-handler         nil
  185.     :event-handler          nil
  186.     :user-data              ()
  187.     :actions                ()
  188. )
  189. (
  190.     :type                   :message
  191.     :name                   docLabel
  192.     :owner                  editListControlPanel
  193.     :help                   ""
  194.     :x                      30
  195.     :y                      43
  196.     :width                  86
  197.     :height                 13
  198.     :foreground-color       "black"
  199.     :label                  "Source Text :"
  200.     :label-type             :string
  201.     :label-bold             t
  202.     :initial-state          :active
  203.     :event-handler          nil
  204.     :user-data              ()
  205.     :actions                ()
  206. )
  207. (
  208.     :type                   :message
  209.     :name                   docNameLabel
  210.     :owner                  editListControlPanel
  211.     :help                   ""
  212.     :x                      124
  213.     :y                      44
  214.     :width                  87
  215.     :height                 13
  216.     :foreground-color       "black"
  217.     :label                  "None Loaded"
  218.     :label-type             :string
  219.     :label-bold             t
  220.     :initial-state          :active
  221.     :event-handler          nil
  222.     :user-data              ()
  223.     :actions                ()
  224. )
  225. (
  226.     :type                   :message
  227.     :name                   editListLabel
  228.     :owner                  editListControlPanel
  229.     :help                   ""
  230.     :x                      30
  231.     :y                      63
  232.     :width                  75
  233.     :height                 13
  234.     :foreground-color       "black"
  235.     :label                  "Edit   List  :"
  236.     :label-type             :string
  237.     :label-bold             t
  238.     :initial-state          :active
  239.     :event-handler          nil
  240.     :user-data              ()
  241.     :actions                ()
  242. )
  243. (
  244.     :type                   :message
  245.     :name                   editListNameLabel
  246.     :owner                  editListControlPanel
  247.     :help                   ""
  248.     :x                      124
  249.     :y                      63
  250.     :width                  55
  251.     :height                 13
  252.     :foreground-color       "black"
  253.     :label                  "Untitled"
  254.     :label-type             :string
  255.     :label-bold             t
  256.     :initial-state          :active
  257.     :event-handler          nil
  258.     :user-data              ()
  259.     :actions                ()
  260. )
  261. (
  262.     :type                   :message
  263.     :name                   editListColumnNamesLabel
  264.     :owner                  editListControlPanel
  265.     :help                   ""
  266.     :x                      32
  267.     :y                      87
  268.     :width                  406
  269.     :height                 13
  270.     :foreground-color       "black"
  271.     :label                  "Edit #           Label                  Duration      Hide Window After Play"
  272.     :label-type             :string
  273.     :label-bold             nil
  274.     :initial-state          :active
  275.     :event-handler          nil
  276.     :user-data              ()
  277.     :actions                ()
  278. )
  279. (
  280.     :type                   :scrolling-list
  281.     :name                   editListScrolledList
  282.     :owner                  editListControlPanel
  283.     :help                   ""
  284.     :x                      22
  285.     :y                      111
  286.     :width                  410
  287.     :height                 164
  288.     :value-x                22
  289.     :value-y                111
  290.     :rows                   8
  291.     :foreground-color       ""
  292.     :label                  ""
  293.     :title                  ""
  294.     :label-type             :string
  295.     :layout-type            :horizontal
  296.     :read-only              t
  297.     :multiple-selections    nil
  298.     :selection-required     t
  299.     :initial-state          :active
  300.     :droppable              nil
  301.     :default-drop-site      nil
  302.     :menu                   nil
  303.     :notify-handler         DumpEntry
  304.     :event-handler          nil
  305.     :initial-list-values    ()
  306.     :initial-list-glyphs    ()
  307.     :initial-selections     ()
  308.     :user-data              ()
  309.     :actions                (
  310.         (
  311.         :from                   (baseWindow editListScrolledList)
  312.         :when                   (Notify )
  313.         :to                     (baseWindow editListScrolledList)
  314.         :function_type          CallFunction
  315.         :arg_type               ()
  316.         :action                 (DumpEntry)
  317.         )
  318.     )
  319. )
  320. (
  321.     :type                   :control-area
  322.     :name                   PreviewControl
  323.     :owner                  baseWindow
  324.     :help                   ""
  325.     :x                      14
  326.     :y                      323
  327.     :width                  471
  328.     :height                 83
  329.     :background-color       "Light Gray"
  330.     :foreground-color       ""
  331.     :initial-state          :visible
  332.     :show-border            t
  333.     :menu                   nil
  334.     :event-handler          nil
  335.     :user-data              ()
  336.     :actions                ()
  337. )
  338. (
  339.     :type                   :message
  340.     :name                   PreviewPanelMessage
  341.     :owner                  PreviewControl
  342.     :help                   ""
  343.     :x                      196
  344.     :y                      12
  345.     :width                  96
  346.     :height                 13
  347.     :foreground-color       "black"
  348.     :label                  "Preview Panel"
  349.     :label-type             :string
  350.     :label-bold             t
  351.     :initial-state          :active
  352.     :event-handler          nil
  353.     :user-data              ()
  354.     :actions                ()
  355. )
  356. (
  357.     :type                   :button
  358.     :name                   PauseButton
  359.     :owner                  PreviewControl
  360.     :help                   ""
  361.     :x                      28
  362.     :y                      28
  363.     :width                  42
  364.     :height                 42
  365.     :constant-width         nil
  366.     :button-type            :normal
  367.     :foreground-color       ""
  368.     :label                  "icons/pause.icon"
  369.     :label-type             :glyph
  370.     :initial-state          :active
  371.     :menu                   nil
  372.     :notify-handler         PauseButtonHandler
  373.     :event-handler          nil
  374.     :user-data              ()
  375.     :actions                (
  376.         (
  377.         :from                   (baseWindow PauseButton)
  378.         :when                   (Notify )
  379.         :to                     (baseWindow PauseButton)
  380.         :function_type          CallFunction
  381.         :arg_type               ()
  382.         :action                 (PauseButtonHandler)
  383.         )
  384.     )
  385. )
  386. (
  387.     :type                   :button
  388.     :name                   StopButton
  389.     :owner                  PreviewControl
  390.     :help                   ""
  391.     :x                      92
  392.     :y                      28
  393.     :width                  42
  394.     :height                 42
  395.     :constant-width         nil
  396.     :button-type            :normal
  397.     :foreground-color       ""
  398.     :label                  "icons/stop.icon"
  399.     :label-type             :glyph
  400.     :initial-state          :active
  401.     :menu                   nil
  402.     :notify-handler         StopButtonHandler
  403.     :event-handler          nil
  404.     :user-data              ()
  405.     :actions                (
  406.         (
  407.         :from                   (baseWindow StopButton)
  408.         :when                   (Notify )
  409.         :to                     (baseWindow StopButton)
  410.         :function_type          CallFunction
  411.         :arg_type               ()
  412.         :action                 (StopButtonHandler)
  413.         )
  414.     )
  415. )
  416. (
  417.     :type                   :button
  418.     :name                   PlayButton
  419.     :owner                  PreviewControl
  420.     :help                   ""
  421.     :x                      156
  422.     :y                      28
  423.     :width                  42
  424.     :height                 42
  425.     :constant-width         nil
  426.     :button-type            :normal
  427.     :foreground-color       ""
  428.     :label                  "icons/play.icon"
  429.     :label-type             :glyph
  430.     :initial-state          :active
  431.     :menu                   nil
  432.     :notify-handler         PlayButtonHandler
  433.     :event-handler          nil
  434.     :user-data              ()
  435.     :actions                (
  436.         (
  437.         :from                   (baseWindow PlayButton)
  438.         :when                   (Notify )
  439.         :to                     (baseWindow PlayButton)
  440.         :function_type          CallFunction
  441.         :arg_type               ()
  442.         :action                 (PlayButtonHandler)
  443.         )
  444.     )
  445. )
  446. (
  447.     :type                   :gauge
  448.     :name                   DurationGauge
  449.     :owner                  PreviewControl
  450.     :help                   ""
  451.     :x                      232
  452.     :y                      36
  453.     :width                  221
  454.     :height                 13
  455.     :value-x                307
  456.     :value-y                36
  457.     :slider-width           130
  458.     :ticks                  0
  459.     :foreground-color       ""
  460.     :label                  "Duration :"
  461.     :label-type             :string
  462.     :layout-type            :horizontal
  463.     :orientation            :horizontal
  464.     :show-range             nil
  465.     :min-value              0
  466.     :max-value              100
  467.     :min-tick-string        ""
  468.     :max-tick-string        ""
  469.     :initial-value          0
  470.     :initial-state          :active
  471.     :event-handler          nil
  472.     :user-data              ()
  473.     :actions                ()
  474. )
  475. (
  476.     :type                   :message
  477.     :name                   StartTimeMessage
  478.     :owner                  PreviewControl
  479.     :help                   ""
  480.     :x                      304
  481.     :y                      56
  482.     :width                  27
  483.     :height                 13
  484.     :foreground-color       ""
  485.     :label                  "0:00"
  486.     :label-type             :string
  487.     :label-bold             nil
  488.     :initial-state          :active
  489.     :event-handler          nil
  490.     :user-data              ()
  491.     :actions                ()
  492. )
  493. (
  494.     :type                   :message
  495.     :name                   EndTimeMessage
  496.     :owner                  PreviewControl
  497.     :help                   ""
  498.     :x                      424
  499.     :y                      56
  500.     :width                  27
  501.     :height                 13
  502.     :foreground-color       ""
  503.     :label                  "0:00"
  504.     :label-type             :string
  505.     :label-bold             nil
  506.     :initial-state          :active
  507.     :event-handler          nil
  508.     :user-data              ()
  509.     :actions                ()
  510. )
  511. (
  512.     :type                   :control-area
  513.     :name                   selectionControlPanellist2
  514.     :owner                  baseWindow
  515.     :help                   ""
  516.     :x                      14
  517.     :y                      415
  518.     :width                  471
  519.     :height                 230
  520.     :background-color       "Light Gray"
  521.     :foreground-color       ""
  522.     :initial-state          :visible
  523.     :show-border            t
  524.     :menu                   nil
  525.     :event-handler          nil
  526.     :user-data              ()
  527.     :actions                ()
  528. )
  529. (
  530.     :type                   :message
  531.     :name                   currentSelectionLabel
  532.     :owner                  selectionControlPanellist2
  533.     :help                   ""
  534.     :x                      36
  535.     :y                      16
  536.     :width                  122
  537.     :height                 13
  538.     :foreground-color       "black"
  539.     :label                  "Current Selection:"
  540.     :label-type             :string
  541.     :label-bold             t
  542.     :initial-state          :active
  543.     :event-handler          nil
  544.     :user-data              ()
  545.     :actions                ()
  546. )
  547. (
  548.     :type                   :message
  549.     :name                   currentSelectionNumberLabel
  550.     :owner                  selectionControlPanellist2
  551.     :help                   ""
  552.     :x                      168
  553.     :y                      16
  554.     :width                  59
  555.     :height                 13
  556.     :foreground-color       "black"
  557.     :label                  "New Edit"
  558.     :label-type             :string
  559.     :label-bold             t
  560.     :initial-state          :active
  561.     :event-handler          nil
  562.     :user-data              ()
  563.     :actions                ()
  564. )
  565. (
  566.     :type                   :message
  567.     :name                   numEditsLabel
  568.     :owner                  selectionControlPanellist2
  569.     :help                   ""
  570.     :x                      292
  571.     :y                      16
  572.     :width                  126
  573.     :height                 13
  574.     :foreground-color       "black"
  575.     :label                  "Number of Edits: 0"
  576.     :label-type             :string
  577.     :label-bold             t
  578.     :initial-state          :active
  579.     :event-handler          nil
  580.     :user-data              ()
  581.     :actions                ()
  582. )
  583. (
  584.     :type                   :button
  585.     :name                   showSelectionButton
  586.     :owner                  selectionControlPanellist2
  587.     :help                   ""
  588.     :x                      270
  589.     :y                      51
  590.     :width                  167
  591.     :height                 19
  592.     :constant-width         t
  593.     :button-type            :normal
  594.     :foreground-color       ""
  595.     :label                  "        Set  Selection"
  596.     :label-type             :string
  597.     :initial-state          :active
  598.     :menu                   nil
  599.     :notify-handler         ShowSelection
  600.     :event-handler          nil
  601.     :user-data              ()
  602.     :actions                (
  603.         (
  604.         :from                   (baseWindow showSelectionButton)
  605.         :when                   (Notify )
  606.         :to                     (baseWindow showSelectionButton)
  607.         :function_type          CallFunction
  608.         :arg_type               ()
  609.         :action                 (ShowSelection)
  610.         )
  611.     )
  612. )
  613. (
  614.     :type                   :message
  615.     :name                   selectionLabelLabel
  616.     :owner                  selectionControlPanellist2
  617.     :help                   ""
  618.     :x                      32
  619.     :y                      52
  620.     :width                  38
  621.     :height                 13
  622.     :foreground-color       "black"
  623.     :label                  "Label"
  624.     :label-type             :string
  625.     :label-bold             t
  626.     :initial-state          :active
  627.     :event-handler          nil
  628.     :user-data              ()
  629.     :actions                ()
  630. )
  631. (
  632.     :type                   :text-field
  633.     :name                   selectionLabelField
  634.     :owner                  selectionControlPanellist2
  635.     :help                   ""
  636.     :x                      76
  637.     :y                      52
  638.     :width                  160
  639.     :height                 15
  640.     :value-x                76
  641.     :value-y                52
  642.     :value-length           20
  643.     :stored-length          20
  644.     :rows                   3
  645.     :foreground-color       ""
  646.     :text-type              :alphanumeric
  647.     :label                  ""
  648.     :label-type             :string
  649.     :layout-type            :horizontal
  650.     :value-underlined       t
  651.     :initial-value          ""
  652.     :initial-state          :active
  653.     :read-only              nil
  654.     :notify-handler         TextFieldAddSelection
  655.     :event-handler          nil
  656.     :user-data              ()
  657.     :actions                (
  658.         (
  659.         :from                   (baseWindow selectionLabelField)
  660.         :when                   (Notify )
  661.         :to                     (baseWindow selectionLabelField)
  662.         :function_type          CallFunction
  663.         :arg_type               ()
  664.         :action                 (TextFieldAddSelection)
  665.         )
  666.     )
  667. )
  668. (
  669.     :type                   :message
  670.     :name                   Duration
  671.     :owner                  selectionControlPanellist2
  672.     :help                   ""
  673.     :x                      31
  674.     :y                      75
  675.     :width                  60
  676.     :height                 13
  677.     :foreground-color       "black"
  678.     :label                  "Duration"
  679.     :label-type             :string
  680.     :label-bold             t
  681.     :initial-state          :active
  682.     :event-handler          nil
  683.     :user-data              ()
  684.     :actions                ()
  685. )
  686. (
  687.     :type                   :text-field
  688.     :name                   DurationMinsTextField
  689.     :owner                  selectionControlPanellist2
  690.     :help                   ""
  691.     :x                      107
  692.     :y                      75
  693.     :width                  36
  694.     :height                 15
  695.     :value-x                107
  696.     :value-y                75
  697.     :value-length           3
  698.     :stored-length          80
  699.     :rows                   3
  700.     :foreground-color       ""
  701.     :text-type              :alphanumeric
  702.     :label                  ""
  703.     :label-type             :string
  704.     :layout-type            :horizontal
  705.     :value-underlined       t
  706.     :initial-value          ""
  707.     :initial-state          :active
  708.     :read-only              nil
  709.     :notify-handler         DurationMinsTextFieldHandler
  710.     :event-handler          nil
  711.     :user-data              ()
  712.     :actions                (
  713.         (
  714.         :from                   (baseWindow DurationMinsTextField)
  715.         :when                   (Notify )
  716.         :to                     (baseWindow DurationMinsTextField)
  717.         :function_type          CallFunction
  718.         :arg_type               ()
  719.         :action                 (DurationMinsTextFieldHandler)
  720.         )
  721.     )
  722. )
  723. (
  724.     :type                   :message
  725.     :name                   Minutes
  726.     :owner                  selectionControlPanellist2
  727.     :help                   ""
  728.     :x                      160
  729.     :y                      75
  730.     :width                  15
  731.     :height                 13
  732.     :foreground-color       "black"
  733.     :label                  "m."
  734.     :label-type             :string
  735.     :label-bold             nil
  736.     :initial-state          :active
  737.     :event-handler          nil
  738.     :user-data              ()
  739.     :actions                ()
  740. )
  741. (
  742.     :type                   :text-field
  743.     :name                   DurationSecsTextField
  744.     :owner                  selectionControlPanellist2
  745.     :help                   ""
  746.     :x                      182
  747.     :y                      75
  748.     :width                  36
  749.     :height                 15
  750.     :value-x                182
  751.     :value-y                75
  752.     :value-length           4
  753.     :stored-length          80
  754.     :rows                   3
  755.     :foreground-color       ""
  756.     :text-type              :alphanumeric
  757.     :label                  ""
  758.     :label-type             :string
  759.     :layout-type            :horizontal
  760.     :value-underlined       t
  761.     :initial-value          ""
  762.     :initial-state          :active
  763.     :read-only              nil
  764.     :notify-handler         DurationSecsTextFieldHandler
  765.     :event-handler          nil
  766.     :user-data              ()
  767.     :actions                (
  768.         (
  769.         :from                   (baseWindow DurationSecsTextField)
  770.         :when                   (Notify )
  771.         :to                     (baseWindow DurationSecsTextField)
  772.         :function_type          CallFunction
  773.         :arg_type               ()
  774.         :action                 (DurationSecsTextFieldHandler)
  775.         )
  776.     )
  777. )
  778. (
  779.     :type                   :message
  780.     :name                   Seconds
  781.     :owner                  selectionControlPanellist2
  782.     :help                   ""
  783.     :x                      234
  784.     :y                      75
  785.     :width                  9
  786.     :height                 13
  787.     :foreground-color       "black"
  788.     :label                  "s."
  789.     :label-type             :string
  790.     :label-bold             nil
  791.     :initial-state          :active
  792.     :event-handler          nil
  793.     :user-data              ()
  794.     :actions                ()
  795. )
  796. (
  797.     :type                   :button
  798.     :name                   ShowQuoteWindowButton
  799.     :owner                  selectionControlPanellist2
  800.     :help                   ""
  801.     :x                      269
  802.     :y                      80
  803.     :width                  167
  804.     :height                 19
  805.     :constant-width         t
  806.     :button-type            :normal
  807.     :foreground-color       ""
  808.     :label                  "   Show Quote Window"
  809.     :label-type             :string
  810.     :initial-state          :active
  811.     :menu                   nil
  812.     :notify-handler         ShowQuoteWindowButtonHandler
  813.     :event-handler          nil
  814.     :user-data              ()
  815.     :actions                (
  816.         (
  817.         :from                   (baseWindow ShowQuoteWindowButton)
  818.         :when                   (Notify )
  819.         :to                     (baseWindow ShowQuoteWindowButton)
  820.         :function_type          CallFunction
  821.         :arg_type               ()
  822.         :action                 (ShowQuoteWindowButtonHandler)
  823.         )
  824.     )
  825. )
  826. (
  827.     :type                   :button
  828.     :name                   EstimateDurationButton
  829.     :owner                  selectionControlPanellist2
  830.     :help                   ""
  831.     :x                      112
  832.     :y                      100
  833.     :width                  128
  834.     :height                 19
  835.     :constant-width         nil
  836.     :button-type            :normal
  837.     :foreground-color       ""
  838.     :label                  "Estimate Duration"
  839.     :label-type             :string
  840.     :initial-state          :active
  841.     :menu                   nil
  842.     :notify-handler         EstimateDurationNotifyHandler
  843.     :event-handler          nil
  844.     :user-data              ()
  845.     :actions                (
  846.         (
  847.         :from                   (baseWindow EstimateDurationButton)
  848.         :when                   (Notify )
  849.         :to                     (baseWindow EstimateDurationButton)
  850.         :function_type          CallFunction
  851.         :arg_type               ()
  852.         :action                 (EstimateDurationNotifyHandler)
  853.         )
  854.     )
  855. )
  856. (
  857.     :type                   :button
  858.     :name                   HideQuoteWindowButton
  859.     :owner                  selectionControlPanellist2
  860.     :help                   ""
  861.     :x                      269
  862.     :y                      109
  863.     :width                  167
  864.     :height                 19
  865.     :constant-width         t
  866.     :button-type            :normal
  867.     :foreground-color       ""
  868.     :label                  "   Hide Quote Window"
  869.     :label-type             :string
  870.     :initial-state          :active
  871.     :menu                   nil
  872.     :notify-handler         HideQuoteWindowButtonHandler
  873.     :event-handler          nil
  874.     :user-data              ()
  875.     :actions                (
  876.         (
  877.         :from                   (baseWindow HideQuoteWindowButton)
  878.         :when                   (Notify )
  879.         :to                     (baseWindow HideQuoteWindowButton)
  880.         :function_type          CallFunction
  881.         :arg_type               ()
  882.         :action                 (HideQuoteWindowButtonHandler)
  883.         )
  884.     )
  885. )
  886. (
  887.     :type                   :message
  888.     :name                   HIdeQuoteWindowAfterPlayingEditMessage1
  889.     :owner                  selectionControlPanellist2
  890.     :help                   ""
  891.     :x                      16
  892.     :y                      128
  893.     :width                  133
  894.     :height                 13
  895.     :foreground-color       "black"
  896.     :label                  "Hide Quote Window"
  897.     :label-type             :string
  898.     :label-bold             t
  899.     :initial-state          :active
  900.     :event-handler          nil
  901.     :user-data              ()
  902.     :actions                ()
  903. )
  904. (
  905.     :type                   :setting
  906.     :name                   HideQuoteWindowAfterPlayingEditSetting
  907.     :owner                  selectionControlPanellist2
  908.     :help                   ""
  909.     :x                      160
  910.     :y                      132
  911.     :width                  73
  912.     :height                 23
  913.     :value-x                160
  914.     :value-y                132
  915.     :rows                   1
  916.     :columns                0
  917.     :layout-type            :horizontal
  918.     :foreground-color       ""
  919.     :setting-type           :exclusive
  920.     :selection-required     t
  921.     :label                  ""
  922.     :label-type             :string
  923.     :notify-handler         HideQuoteWindowAfterPlayingEditSettingHandler
  924.     :event-handler          nil
  925.     :choices                ("NO" "YES" )
  926.     :choice-label-types     (:string :string )
  927.     :choice-colors          ("" "" )
  928.     :initial-selections     (nil nil )
  929.     :initial-state          :active
  930.     :user-data              ()
  931.     :actions                (
  932.         (
  933.         :from                   (baseWindow HideQuoteWindowAfterPlayingEditSetting)
  934.         :when                   (Notify )
  935.         :to                     (baseWindow HideQuoteWindowAfterPlayingEditSetting)
  936.         :function_type          CallFunction
  937.         :arg_type               ()
  938.         :action                 (HideQuoteWindowAfterPlayingEditSettingHandler)
  939.         )
  940.     )
  941. )
  942. (
  943.     :type                   :button
  944.     :name                   IconifyQuoteWindowButton
  945.     :owner                  selectionControlPanellist2
  946.     :help                   ""
  947.     :x                      269
  948.     :y                      138
  949.     :width                  167
  950.     :height                 19
  951.     :constant-width         t
  952.     :button-type            :normal
  953.     :foreground-color       ""
  954.     :label                  "  Iconify Quote Window"
  955.     :label-type             :string
  956.     :initial-state          :active
  957.     :menu                   nil
  958.     :notify-handler         IconifyQuoteWindowButtonHandler
  959.     :event-handler          nil
  960.     :user-data              ()
  961.     :actions                (
  962.         (
  963.         :from                   (baseWindow IconifyQuoteWindowButton)
  964.         :when                   (Notify )
  965.         :to                     (baseWindow IconifyQuoteWindowButton)
  966.         :function_type          CallFunction
  967.         :arg_type               ()
  968.         :action                 (IconifyQuoteWindowButtonHandler)
  969.         )
  970.     )
  971. )
  972. (
  973.     :type                   :message
  974.     :name                   HideQuoteWindowAfterPlayingEditMessage2
  975.     :owner                  selectionControlPanellist2
  976.     :help                   ""
  977.     :x                      20
  978.     :y                      144
  979.     :width                  119
  980.     :height                 13
  981.     :foreground-color       "black"
  982.     :label                  "After Playing Edit"
  983.     :label-type             :string
  984.     :label-bold             t
  985.     :initial-state          :active
  986.     :event-handler          nil
  987.     :user-data              ()
  988.     :actions                ()
  989. )
  990. (
  991.     :type                   :button
  992.     :name                   addButton
  993.     :owner                  selectionControlPanellist2
  994.     :help                   ""
  995.     :x                      32
  996.     :y                      184
  997.     :width                  90
  998.     :height                 19
  999.     :constant-width         nil
  1000.     :button-type            :normal
  1001.     :foreground-color       ""
  1002.     :label                  "      Add      "
  1003.     :label-type             :string
  1004.     :initial-state          :active
  1005.     :menu                   nil
  1006.     :notify-handler         AddSelection
  1007.     :event-handler          nil
  1008.     :user-data              ()
  1009.     :actions                (
  1010.         (
  1011.         :from                   (baseWindow addButton)
  1012.         :when                   (Notify )
  1013.         :to                     (baseWindow addButton)
  1014.         :function_type          CallFunction
  1015.         :arg_type               ()
  1016.         :action                 (AddSelection)
  1017.         )
  1018.     )
  1019. )
  1020. (
  1021.     :type                   :button
  1022.     :name                   modifyButton
  1023.     :owner                  selectionControlPanellist2
  1024.     :help                   ""
  1025.     :x                      130
  1026.     :y                      184
  1027.     :width                  102
  1028.     :height                 19
  1029.     :constant-width         nil
  1030.     :button-type            :normal
  1031.     :foreground-color       ""
  1032.     :label                  " Update Edit  "
  1033.     :label-type             :string
  1034.     :initial-state          :active
  1035.     :menu                   nil
  1036.     :notify-handler         ModifySelection
  1037.     :event-handler          nil
  1038.     :user-data              ()
  1039.     :actions                (
  1040.         (
  1041.         :from                   (baseWindow modifyButton)
  1042.         :when                   (Notify )
  1043.         :to                     (baseWindow modifyButton)
  1044.         :function_type          CallFunction
  1045.         :arg_type               ()
  1046.         :action                 (ModifySelection)
  1047.         )
  1048.     )
  1049. )
  1050. (
  1051.     :type                   :button
  1052.     :name                   deleteButton
  1053.     :owner                  selectionControlPanellist2
  1054.     :help                   ""
  1055.     :x                      240
  1056.     :y                      184
  1057.     :width                  89
  1058.     :height                 19
  1059.     :constant-width         nil
  1060.     :button-type            :normal
  1061.     :foreground-color       ""
  1062.     :label                  "    Delete    "
  1063.     :label-type             :string
  1064.     :initial-state          :active
  1065.     :menu                   nil
  1066.     :notify-handler         DeleteSelection
  1067.     :event-handler          nil
  1068.     :user-data              ()
  1069.     :actions                (
  1070.         (
  1071.         :from                   (baseWindow deleteButton)
  1072.         :when                   (Notify )
  1073.         :to                     (baseWindow deleteButton)
  1074.         :function_type          CallFunction
  1075.         :arg_type               ()
  1076.         :action                 (DeleteSelection)
  1077.         )
  1078.     )
  1079. )
  1080. (
  1081.     :type                   :button
  1082.     :name                   deleteAllButton
  1083.     :owner                  selectionControlPanellist2
  1084.     :help                   ""
  1085.     :x                      337
  1086.     :y                      184
  1087.     :width                  85
  1088.     :height                 19
  1089.     :constant-width         nil
  1090.     :button-type            :normal
  1091.     :foreground-color       ""
  1092.     :label                  " Delete All "
  1093.     :label-type             :string
  1094.     :initial-state          :active
  1095.     :menu                   nil
  1096.     :notify-handler         DeleteAllSelections
  1097.     :event-handler          nil
  1098.     :user-data              ()
  1099.     :actions                (
  1100.         (
  1101.         :from                   (baseWindow deleteAllButton)
  1102.         :when                   (Notify )
  1103.         :to                     (baseWindow deleteAllButton)
  1104.         :function_type          CallFunction
  1105.         :arg_type               ()
  1106.         :action                 (DeleteAllSelections)
  1107.         )
  1108.     )
  1109. )
  1110. (
  1111.     :type                   :popup-window
  1112.     :name                   infoPopup
  1113.     :owner                  baseWindow
  1114.     :width                  500
  1115.     :height                 316
  1116.     :background-color       "light gray"
  1117.     :foreground-color       ""
  1118.     :label                  "QuoteMaker Info"
  1119.     :label-type             :string
  1120.     :initial-state          :invisible
  1121.     :show-footer            t
  1122.     :resizable              t
  1123.     :pinned                 nil
  1124.     :done-handler           nil
  1125.     :event-handler          nil
  1126.     :user-data              ()
  1127.     :actions                ()
  1128. )
  1129. (
  1130.     :type                   :control-area
  1131.     :name                   infoControlPanel
  1132.     :owner                  infoPopup
  1133.     :help                   ""
  1134.     :x                      15
  1135.     :y                      15
  1136.     :width                  472
  1137.     :height                 285
  1138.     :background-color       "Light Gray"
  1139.     :foreground-color       ""
  1140.     :initial-state          :visible
  1141.     :show-border            t
  1142.     :menu                   nil
  1143.     :event-handler          nil
  1144.     :user-data              ()
  1145.     :actions                ()
  1146. )
  1147. (
  1148.     :type                   :message
  1149.     :name                   appNameMessage
  1150.     :owner                  infoControlPanel
  1151.     :help                   ""
  1152.     :x                      192
  1153.     :y                      20
  1154.     :width                  83
  1155.     :height                 13
  1156.     :foreground-color       ""
  1157.     :label                  "QuoteMaker"
  1158.     :label-type             :string
  1159.     :label-bold             t
  1160.     :initial-state          :active
  1161.     :event-handler          nil
  1162.     :user-data              ()
  1163.     :actions                ()
  1164. )
  1165. (
  1166.     :type                   :message
  1167.     :name                   appVersionMessage
  1168.     :owner                  infoControlPanel
  1169.     :help                   ""
  1170.     :x                      200
  1171.     :y                      40
  1172.     :width                  76
  1173.     :height                 13
  1174.     :foreground-color       ""
  1175.     :label                  "Version 2.13"
  1176.     :label-type             :string
  1177.     :label-bold             nil
  1178.     :initial-state          :active
  1179.     :event-handler          nil
  1180.     :user-data              ()
  1181.     :actions                ()
  1182. )
  1183. (
  1184.     :type                   :message
  1185.     :name                   appDescriptionMessage
  1186.     :owner                  infoControlPanel
  1187.     :help                   ""
  1188.     :x                      112
  1189.     :y                      70
  1190.     :width                  247
  1191.     :height                 13
  1192.     :foreground-color       ""
  1193.     :label                  "Text annotation application for use with"
  1194.     :label-type             :string
  1195.     :label-bold             nil
  1196.     :initial-state          :active
  1197.     :event-handler          nil
  1198.     :user-data              ()
  1199.     :actions                ()
  1200. )
  1201. (
  1202.     :type                   :message
  1203.     :name                   appDescription2Message
  1204.     :owner                  infoControlPanel
  1205.     :help                   ""
  1206.     :x                      80
  1207.     :y                      90
  1208.     :width                  293
  1209.     :height                 13
  1210.     :foreground-color       ""
  1211.     :label                  "the MAEstro Multimedia Authoring Environment"
  1212.     :label-type             :string
  1213.     :label-bold             nil
  1214.     :initial-state          :active
  1215.     :event-handler          nil
  1216.     :user-data              ()
  1217.     :actions                ()
  1218. )
  1219. (
  1220.     :type                   :message
  1221.     :name                   developerMessage
  1222.     :owner                  infoControlPanel
  1223.     :help                   ""
  1224.     :x                      168
  1225.     :y                      122
  1226.     :width                  143
  1227.     :height                 13
  1228.     :foreground-color       ""
  1229.     :label                  "Developed by Derek Lai"
  1230.     :label-type             :string
  1231.     :label-bold             nil
  1232.     :initial-state          :active
  1233.     :event-handler          nil
  1234.     :user-data              ()
  1235.     :actions                ()
  1236. )
  1237. (
  1238.     :type                   :message
  1239.     :name                   modsMessage
  1240.     :owner                  infoControlPanel
  1241.     :help                   ""
  1242.     :x                      28
  1243.     :y                      142
  1244.     :width                  416
  1245.     :height                 13
  1246.     :foreground-color       ""
  1247.     :label                  "(based on an application written by Al Sargent and George Drapeau)"
  1248.     :label-type             :string
  1249.     :label-bold             nil
  1250.     :initial-state          :active
  1251.     :event-handler          nil
  1252.     :user-data              ()
  1253.     :actions                ()
  1254. )
  1255. (
  1256.     :type                   :message
  1257.     :name                   copyrightMessage
  1258.     :owner                  infoControlPanel
  1259.     :help                   ""
  1260.     :x                      8
  1261.     :y                      168
  1262.     :width                  457
  1263.     :height                 13
  1264.     :foreground-color       ""
  1265.     :label                  "Copyright (C) 1990, 1991, 1992 Libraries and Information Resources (L&IR)"
  1266.     :label-type             :string
  1267.     :label-bold             nil
  1268.     :initial-state          :active
  1269.     :event-handler          nil
  1270.     :user-data              ()
  1271.     :actions                ()
  1272. )
  1273. (
  1274.     :type                   :message
  1275.     :name                   copyright2Message
  1276.     :owner                  infoControlPanel
  1277.     :help                   ""
  1278.     :x                      176
  1279.     :y                      194
  1280.     :width                  118
  1281.     :height                 13
  1282.     :foreground-color       ""
  1283.     :label                  "Stanford University"
  1284.     :label-type             :string
  1285.     :label-bold             nil
  1286.     :initial-state          :active
  1287.     :event-handler          nil
  1288.     :user-data              ()
  1289.     :actions                ()
  1290. )
  1291. (
  1292.     :type                   :message
  1293.     :name                   copyright3Message
  1294.     :owner                  infoControlPanel
  1295.     :help                   ""
  1296.     :x                      176
  1297.     :y                      214
  1298.     :width                  119
  1299.     :height                 13
  1300.     :foreground-color       ""
  1301.     :label                  "Stanford, California"
  1302.     :label-type             :string
  1303.     :label-bold             nil
  1304.     :initial-state          :active
  1305.     :event-handler          nil
  1306.     :user-data              ()
  1307.     :actions                ()
  1308. )
  1309. (
  1310.     :type                   :message
  1311.     :name                   moreInfoMessage
  1312.     :owner                  infoControlPanel
  1313.     :help                   ""
  1314.     :x                      84
  1315.     :y                      246
  1316.     :width                  309
  1317.     :height                 13
  1318.     :foreground-color       ""
  1319.     :label                  "For more info, contact maestro@sioux.stanford.edu"
  1320.     :label-type             :string
  1321.     :label-bold             nil
  1322.     :initial-state          :active
  1323.     :event-handler          nil
  1324.     :user-data              ()
  1325.     :actions                ()
  1326. )
  1327. (
  1328.     :type                   :popup-window
  1329.     :name                   textWindowPopup
  1330.     :owner                  baseWindow
  1331.     :width                  600
  1332.     :height                 565
  1333.     :background-color       ""
  1334.     :foreground-color       ""
  1335.     :label                  "QuoteMaker: No Current Document"
  1336.     :label-type             :string
  1337.     :initial-state          :invisible
  1338.     :show-footer            t
  1339.     :resizable              t
  1340.     :pinned                 nil
  1341.     :done-handler           nil
  1342.     :event-handler          TextWindowPopupEventHandler
  1343.     :user-data              ()
  1344.     :actions                (
  1345.         (
  1346.         :from                   (textWindowPopup)
  1347.         :when                   (AnyEvent )
  1348.         :to                     (textWindowPopup)
  1349.         :function_type          CallFunction
  1350.         :arg_type               ()
  1351.         :action                 (TextWindowPopupEventHandler)
  1352.         )
  1353.     )
  1354. )
  1355. (
  1356.     :type                   :text-pane
  1357.     :name                   mainTextPane
  1358.     :owner                  textWindowPopup
  1359.     :help                   ""
  1360.     :x                      0
  1361.     :y                      0
  1362.     :width                  600
  1363.     :height                 565
  1364.     :background-color       "white"
  1365.     :foreground-color       "black"
  1366.     :initial-state          :visible
  1367.     :show-border            t
  1368.     :read-only              t
  1369.     :event-handler          TextPaneEventHandler
  1370.     :user-data              ()
  1371.     :actions                (
  1372.         (
  1373.         :from                   (textWindowPopup mainTextPane)
  1374.         :when                   (AnyEvent )
  1375.         :to                     (textWindowPopup mainTextPane)
  1376.         :function_type          CallFunction
  1377.         :arg_type               ()
  1378.         :action                 (TextPaneEventHandler)
  1379.         )
  1380.     )
  1381. )
  1382. (
  1383.     :type                   :popup-window
  1384.     :name                   QuoteWindowSpecificationsPopup
  1385.     :owner                  baseWindow
  1386.     :width                  400
  1387.     :height                 402
  1388.     :background-color       "Light Gray"
  1389.     :foreground-color       ""
  1390.     :label                  "Quote Window Specifications Panel"
  1391.     :label-type             :string
  1392.     :initial-state          :invisible
  1393.     :show-footer            t
  1394.     :resizable              t
  1395.     :pinned                 nil
  1396.     :done-handler           nil
  1397.     :event-handler          nil
  1398.     :user-data              ()
  1399.     :actions                ()
  1400. )
  1401. (
  1402.     :type                   :control-area
  1403.     :name                   controls7
  1404.     :owner                  QuoteWindowSpecificationsPopup
  1405.     :help                   ""
  1406.     :x                      12
  1407.     :y                      12
  1408.     :width                  376
  1409.     :height                 48
  1410.     :background-color       "Light Gray"
  1411.     :foreground-color       ""
  1412.     :initial-state          :visible
  1413.     :show-border            t
  1414.     :menu                   nil
  1415.     :event-handler          nil
  1416.     :user-data              ()
  1417.     :actions                ()
  1418. )
  1419. (
  1420.     :type                   :message
  1421.     :name                   EditNumberColonMessage
  1422.     :owner                  controls7
  1423.     :help                   ""
  1424.     :x                      36
  1425.     :y                      17
  1426.     :width                  92
  1427.     :height                 13
  1428.     :foreground-color       ""
  1429.     :label                  "Edit Number :"
  1430.     :label-type             :string
  1431.     :label-bold             t
  1432.     :initial-state          :active
  1433.     :event-handler          nil
  1434.     :user-data              ()
  1435.     :actions                ()
  1436. )
  1437. (
  1438.     :type                   :message
  1439.     :name                   EditNumberMessage
  1440.     :owner                  controls7
  1441.     :help                   ""
  1442.     :x                      156
  1443.     :y                      17
  1444.     :width                  31
  1445.     :height                 13
  1446.     :foreground-color       ""
  1447.     :label                  "None"
  1448.     :label-type             :string
  1449.     :label-bold             nil
  1450.     :initial-state          :active
  1451.     :event-handler          nil
  1452.     :user-data              ()
  1453.     :actions                ()
  1454. )
  1455. (
  1456.     :type                   :control-area
  1457.     :name                   controls5
  1458.     :owner                  QuoteWindowSpecificationsPopup
  1459.     :help                   ""
  1460.     :x                      12
  1461.     :y                      73
  1462.     :width                  376
  1463.     :height                 47
  1464.     :background-color       "Light Gray"
  1465.     :foreground-color       ""
  1466.     :initial-state          :visible
  1467.     :show-border            t
  1468.     :menu                   nil
  1469.     :event-handler          nil
  1470.     :user-data              ()
  1471.     :actions                ()
  1472. )
  1473. (
  1474.     :type                   :message
  1475.     :name                   LocationLabelMessage
  1476.     :owner                  controls5
  1477.     :help                   ""
  1478.     :x                      36
  1479.     :y                      16
  1480.     :width                  65
  1481.     :height                 13
  1482.     :foreground-color       ""
  1483.     :label                  "Location :"
  1484.     :label-type             :string
  1485.     :label-bold             t
  1486.     :initial-state          :active
  1487.     :event-handler          nil
  1488.     :user-data              ()
  1489.     :actions                ()
  1490. )
  1491. (
  1492.     :type                   :message
  1493.     :name                   LocationMessage
  1494.     :owner                  controls5
  1495.     :help                   ""
  1496.     :x                      112
  1497.     :y                      16
  1498.     :width                  0
  1499.     :height                 0
  1500.     :foreground-color       ""
  1501.     :label                  ""
  1502.     :label-type             :string
  1503.     :label-bold             nil
  1504.     :initial-state          :active
  1505.     :event-handler          nil
  1506.     :user-data              ()
  1507.     :actions                ()
  1508. )
  1509. (
  1510.     :type                   :message
  1511.     :name                   SizeLabelMessage
  1512.     :owner                  controls5
  1513.     :help                   ""
  1514.     :x                      216
  1515.     :y                      16
  1516.     :width                  35
  1517.     :height                 13
  1518.     :foreground-color       ""
  1519.     :label                  "Size :"
  1520.     :label-type             :string
  1521.     :label-bold             t
  1522.     :initial-state          :active
  1523.     :event-handler          nil
  1524.     :user-data              ()
  1525.     :actions                ()
  1526. )
  1527. (
  1528.     :type                   :message
  1529.     :name                   SizeMessage
  1530.     :owner                  controls5
  1531.     :help                   ""
  1532.     :x                      260
  1533.     :y                      16
  1534.     :width                  0
  1535.     :height                 0
  1536.     :foreground-color       ""
  1537.     :label                  ""
  1538.     :label-type             :string
  1539.     :label-bold             nil
  1540.     :initial-state          :active
  1541.     :event-handler          nil
  1542.     :user-data              ()
  1543.     :actions                ()
  1544. )
  1545. (
  1546.     :type                   :control-area
  1547.     :name                   controls8
  1548.     :owner                  QuoteWindowSpecificationsPopup
  1549.     :help                   ""
  1550.     :x                      12
  1551.     :y                      134
  1552.     :width                  376
  1553.     :height                 193
  1554.     :background-color       "Light Gray"
  1555.     :foreground-color       ""
  1556.     :initial-state          :visible
  1557.     :show-border            t
  1558.     :menu                   nil
  1559.     :event-handler          nil
  1560.     :user-data              ()
  1561.     :actions                ()
  1562. )
  1563. (
  1564.     :type                   :message
  1565.     :name                   FontFamilyHeaderMessage
  1566.     :owner                  controls8
  1567.     :help                   ""
  1568.     :x                      60
  1569.     :y                      14
  1570.     :width                  79
  1571.     :height                 13
  1572.     :foreground-color       ""
  1573.     :label                  "Font Family"
  1574.     :label-type             :string
  1575.     :label-bold             t
  1576.     :initial-state          :active
  1577.     :event-handler          nil
  1578.     :user-data              ()
  1579.     :actions                ()
  1580. )
  1581. (
  1582.     :type                   :message
  1583.     :name                   FontStyleHeaderMessage
  1584.     :owner                  controls8
  1585.     :help                   ""
  1586.     :x                      240
  1587.     :y                      14
  1588.     :width                  67
  1589.     :height                 13
  1590.     :foreground-color       ""
  1591.     :label                  "Font Style"
  1592.     :label-type             :string
  1593.     :label-bold             t
  1594.     :initial-state          :active
  1595.     :event-handler          nil
  1596.     :user-data              ()
  1597.     :actions                ()
  1598. )
  1599. (
  1600.     :type                   :scrolling-list
  1601.     :name                   FontFamilyList
  1602.     :owner                  controls8
  1603.     :help                   ""
  1604.     :x                      20
  1605.     :y                      35
  1606.     :width                  135
  1607.     :height                 110
  1608.     :value-x                20
  1609.     :value-y                35
  1610.     :rows                   5
  1611.     :foreground-color       ""
  1612.     :label                  ""
  1613.     :title                  ""
  1614.     :label-type             :string
  1615.     :layout-type            :horizontal
  1616.     :read-only              t
  1617.     :multiple-selections    nil
  1618.     :selection-required     t
  1619.     :initial-state          :active
  1620.     :droppable              nil
  1621.     :default-drop-site      nil
  1622.     :menu                   nil
  1623.     :notify-handler         FontFamilyNotifyHandler
  1624.     :event-handler          nil
  1625.     :initial-list-values    ()
  1626.     :initial-list-glyphs    ()
  1627.     :initial-selections     ()
  1628.     :user-data              ()
  1629.     :actions                (
  1630.         (
  1631.         :from                   (QuoteWindowSpecificationsPopup FontFamilyList)
  1632.         :when                   (Notify )
  1633.         :to                     (QuoteWindowSpecificationsPopup FontFamilyList)
  1634.         :function_type          CallFunction
  1635.         :arg_type               ()
  1636.         :action                 (FontFamilyNotifyHandler)
  1637.         )
  1638.     )
  1639. )
  1640. (
  1641.     :type                   :scrolling-list
  1642.     :name                   FontStyleList
  1643.     :owner                  controls8
  1644.     :help                   ""
  1645.     :x                      195
  1646.     :y                      35
  1647.     :width                  135
  1648.     :height                 110
  1649.     :value-x                195
  1650.     :value-y                35
  1651.     :rows                   5
  1652.     :foreground-color       ""
  1653.     :label                  ""
  1654.     :title                  ""
  1655.     :label-type             :string
  1656.     :layout-type            :horizontal
  1657.     :read-only              t
  1658.     :multiple-selections    nil
  1659.     :selection-required     t
  1660.     :initial-state          :active
  1661.     :droppable              nil
  1662.     :default-drop-site      nil
  1663.     :menu                   nil
  1664.     :notify-handler         FontStyleNotifyHandler
  1665.     :event-handler          nil
  1666.     :initial-list-values    ()
  1667.     :initial-list-glyphs    ()
  1668.     :initial-selections     ()
  1669.     :user-data              ()
  1670.     :actions                (
  1671.         (
  1672.         :from                   (QuoteWindowSpecificationsPopup FontStyleList)
  1673.         :when                   (Notify )
  1674.         :to                     (QuoteWindowSpecificationsPopup FontStyleList)
  1675.         :function_type          CallFunction
  1676.         :arg_type               ()
  1677.         :action                 (FontStyleNotifyHandler)
  1678.         )
  1679.     )
  1680. )
  1681. (
  1682.     :type                   :text-field
  1683.     :name                   FontSizeTextField
  1684.     :owner                  controls8
  1685.     :help                   ""
  1686.     :x                      106
  1687.     :y                      160
  1688.     :width                  175
  1689.     :height                 15
  1690.     :value-x                182
  1691.     :value-y                160
  1692.     :value-length           8
  1693.     :stored-length          80
  1694.     :rows                   3
  1695.     :foreground-color       ""
  1696.     :text-type              :numeric
  1697.     :label                  "Font Size :"
  1698.     :label-type             :string
  1699.     :layout-type            :horizontal
  1700.     :value-underlined       t
  1701.     :max-value              100
  1702.     :min-value              0
  1703.     :initial-value          0
  1704.     :initial-state          :active
  1705.     :read-only              nil
  1706.     :notify-handler         FontSizeNotifyHandler
  1707.     :event-handler          nil
  1708.     :user-data              ()
  1709.     :actions                (
  1710.         (
  1711.         :from                   (QuoteWindowSpecificationsPopup FontSizeTextField)
  1712.         :when                   (Notify )
  1713.         :to                     (QuoteWindowSpecificationsPopup FontSizeTextField)
  1714.         :function_type          CallFunction
  1715.         :arg_type               ()
  1716.         :action                 (FontSizeNotifyHandler)
  1717.         )
  1718.     )
  1719. )
  1720. (
  1721.     :type                   :control-area
  1722.     :name                   controls6
  1723.     :owner                  QuoteWindowSpecificationsPopup
  1724.     :help                   ""
  1725.     :x                      12
  1726.     :y                      341
  1727.     :width                  376
  1728.     :height                 45
  1729.     :background-color       "Light Gray"
  1730.     :foreground-color       ""
  1731.     :initial-state          :visible
  1732.     :show-border            t
  1733.     :menu                   nil
  1734.     :event-handler          nil
  1735.     :user-data              ()
  1736.     :actions                ()
  1737. )
  1738. (
  1739.     :type                   :button
  1740.     :name                   QTWSpecsDoneButton
  1741.     :owner                  controls6
  1742.     :help                   ""
  1743.     :x                      153
  1744.     :y                      12
  1745.     :width                  73
  1746.     :height                 19
  1747.     :constant-width         nil
  1748.     :button-type            :normal
  1749.     :foreground-color       ""
  1750.     :label                  "   Done   "
  1751.     :label-type             :string
  1752.     :initial-state          :active
  1753.     :menu                   nil
  1754.     :notify-handler         QTWSpecsDoneButtonHandler
  1755.     :event-handler          nil
  1756.     :user-data              ()
  1757.     :actions                (
  1758.         (
  1759.         :from                   (QuoteWindowSpecificationsPopup QTWSpecsDoneButton)
  1760.         :when                   (Notify )
  1761.         :to                     (QuoteWindowSpecificationsPopup QTWSpecsDoneButton)
  1762.         :function_type          CallFunction
  1763.         :arg_type               ()
  1764.         :action                 (QTWSpecsDoneButtonHandler)
  1765.         )
  1766.     )
  1767. )
  1768. (
  1769.     :type                   :base-window
  1770.     :name                   quotedTextBaseWindow
  1771.     :owner                  nil
  1772.     :width                  717
  1773.     :height                 211
  1774.     :background-color       ""
  1775.     :foreground-color       ""
  1776.     :label                  "Quoted Text Window"
  1777.     :label-type             :string
  1778.     :initial-state          :invisible
  1779.     :show-footer            t
  1780.     :resizable              t
  1781.     :icon-file              "./icons/QuotedTextWindow.icon"
  1782.     :icon-label             ""
  1783.     :icon-mask-file         ""
  1784.     :event-handler          nil
  1785.     :user-data              ()
  1786.     :actions                ()
  1787. )
  1788. (
  1789.     :type                   :text-pane
  1790.     :name                   quotedTextPane
  1791.     :owner                  quotedTextBaseWindow
  1792.     :help                   ""
  1793.     :x                      0
  1794.     :y                      0
  1795.     :width                  717
  1796.     :height                 211
  1797.     :background-color       "white"
  1798.     :foreground-color       "black"
  1799.     :initial-state          :visible
  1800.     :show-border            t
  1801.     :read-only              nil
  1802.     :event-handler          nil
  1803.     :user-data              ()
  1804.     :actions                ()
  1805. )
  1806. )
  1807.